home *** CD-ROM | disk | FTP | other *** search
/ CD World Haziran 1997 / CD World Haziran 1997.iso / Explorer Yardimcilari / PiXCL Tools / Progress.px_ / Progress.px
Encoding:
PiXCL source  |  1996-06-10  |  2.1 KB  |  104 lines
  1. Initialize:
  2.     WinGetActive(Win$)
  3.     UseCoordinates(PIXEL)
  4.     {GoSub Draw_Blue_Shade}
  5.     UseBackGround(TRANSPARENT,192,192,192)
  6.     DrawBackGround
  7.     WaitInput(100)  {let NT and 95 catch up}
  8.     InfoMenu(REMOVE)
  9.     SetMenu()
  10.     WinLocate(Win$,200,10,600,220,Res)
  11.     Title$ = "Progress Bar Example"
  12.     WinTitle(Win$, Title$)
  13.  
  14.  
  15.  
  16.     SetMenu("E&xit!",Leave,
  17.         ENDPOPUP,
  18.         "&Progress Bar",IGNORE,
  19.         "&Enable Progress",EnableBTM,
  20.         "&Disable Progress",Disable,
  21.         "EnableCustom",EnableCustom,
  22.         SEPARATOR,
  23.         "Increment",Increment,
  24.         "Absolute",Absolute,
  25.         "Relative",Relative,
  26.         "Progress",Progress,
  27.         SEPARATOR,
  28.         "Enable Status",EnableStatus,
  29.         "Disable Status",DisableStatus,
  30.         ENDPOPUP,
  31.         "&About",About,
  32.         ENDPOPUP)
  33.     
  34. Wait_for_Input:
  35.     WaitInput()
  36.  
  37.  
  38. Leave:
  39.     End
  40.  
  41. About:
  42.     AboutPixcl
  43.     Goto Wait_for_Input
  44.  
  45. Increment:
  46.     UpdateProgressBar(10,INCREMENT)
  47.     Goto Wait_for_Input
  48.  
  49. Absolute:
  50.     UpdateProgressBar(50,ABSOLUTE)
  51.     Goto Wait_for_Input
  52. Relative:
  53.     UpdateProgressBar(25,RELATIVE)
  54.     Goto Wait_for_Input
  55. Progress:
  56.     UpdateProgressBar(10,INCREMENT)
  57.     WaitInput(100)
  58.     UpdateProgressBar(10,INCREMENT)
  59.     WaitInput(100)
  60.     UpdateProgressBar(10,INCREMENT)
  61.     WaitInput(100)
  62.     UpdateProgressBar(10,INCREMENT)
  63.     WaitInput(100)
  64.     UpdateProgressBar(10,INCREMENT)
  65.     WaitInput(100)
  66.     UpdateProgressBar(10,INCREMENT)
  67.     WaitInput(100)
  68.     UpdateProgressBar(10,INCREMENT)
  69.     WaitInput(100)
  70.     UpdateProgressBar(10,INCREMENT)
  71.     WaitInput(100)
  72.     UpdateProgressBar(10,INCREMENT)
  73.     WaitInput(100)
  74.     UpdateProgressBar(10,INCREMENT)
  75.     Goto Wait_for_Input
  76.  
  77.  
  78. EnableStatus:
  79.     StatusWindow(ENABLE,BOTTOM,0,100,200,0,0)
  80.     Goto Wait_for_Input
  81.  
  82. DisableStatus:
  83.     StatusWindow(DISABLE,BOTTOM,0,0,0,0,0)
  84.     Goto Wait_for_Input
  85.  
  86. EnableCustom:
  87.     UseBackGround(TRANSPARENT,192,192,0)
  88.     DrawBackGround
  89.     ProgressBar(ENABLE,5,100,200,120)
  90.     DrawTextExt(10,10,300,90,
  91.     "Example of a partially filled progress bar, with a status bar as well.",LEFT)
  92.     StatusWindow(ENABLE,BOTTOM,1,290,-1,0,0)
  93.     DrawStatusWinText(0,"Long process under way ... please be patient!")
  94.     Goto Wait_for_Input
  95.  
  96.  
  97. EnableBTM:
  98.     ProgressBar(ENABLE,0,0,0,0)
  99.     Goto Wait_for_Input
  100.  
  101. Disable:
  102.     ProgressBar(DISABLE,0,0,0,0)
  103.     Goto Wait_for_Input
  104.